home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / th.dir / 00008_Entry FS.ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  495 b   |  21 lines
  1. on exitFrame
  2.   global gHSCount
  3.   set vV to HSStateGet("th", "vrV")
  4.   set vH to HSStateGet("th", "vrH")
  5.   set vZ to HSStateGet("th", "vrZ")
  6.   if vV = EMPTY then
  7.     put "Duck"
  8.     SetPanoMovieView("86.667", "-9.070", "65.000", "0")
  9.   else
  10.     SetPanoMovieView(vH, vV, vZ, "0")
  11.   end if
  12.   ShowPanoMovie(0)
  13.   if HSStateGet("th", "not1stTime") = EMPTY then
  14.     HSStatePut("th", "not1stTime", "1")
  15.     SetCursor(#wait)
  16.     puppetSound("TREEINTR.AIF")
  17.     SetCursor(#normal)
  18.   end if
  19.   go("Main")
  20. end
  21.